home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / CDE / O-Z / Print2Pict3.4.cpt / Print2Pict 3.4ƒ / P2P Extentions ƒ / Print to PICS ƒ / P2PX_PICS.c < prev    next >
C/C++ Source or Header  |  1992-09-05  |  14KB  |  630 lines
  1. /*====================
  2.  
  3.     Print to PICS. © B.Raoult 1992
  4.     
  5.     This file contains an example of a Print2Pict 3.0 extension.
  6.     It saves printed pages in a PICS file.
  7.  
  8. ====================*/
  9. #include "P2PX.h"
  10. #include "tools.h"
  11.  
  12.  
  13. #define OPTS        'OPTS'        /* Type of our options resource                        */
  14. #define OPTS_ID        128            /* ID of our options resource                        */
  15.  
  16. #define SPEED    2            /* Frames/Seconds input field in the options dialog */
  17. #define DELETE    3            /* Frames/Seconds input field in the options dialog */
  18. #define MOVIE    4
  19.  
  20. #define FIRST_FRAME            128
  21. #define LAST_FRAME            163
  22.  
  23. /*=======
  24.  
  25.     Prototypes 
  26.     
  27. =======*/
  28.  
  29. OSErr    GetFlags(P2PXPtr arg);
  30. OSErr    DoInit(P2PXPtr arg);
  31. OSErr    DoEnd(P2PXPtr arg);
  32. OSErr    DoPutPage(P2PXPtr arg);
  33. OSErr    DoOptOpen(P2PXPtr arg);
  34. OSErr    DoOptEvent(P2PXPtr arg);
  35. OSErr    DoOptItem(P2PXPtr arg);
  36. OSErr    DoOptDone(P2PXPtr arg);
  37.  
  38. /*=======
  39.  
  40.     Structure of INFO resource used in PICS files 
  41.  
  42. =======*/
  43.  
  44. typedef struct {
  45.  
  46.     short    color;            /* Color picture             */
  47.     short    depth;            /* Depth of picture         */
  48.     short    speed;            /* Frames/seconds             */
  49.     short    version;        /* version                     */
  50.     OSType    creator;        /* creator                     */
  51.     long    maxsize;        /* size of largest picture    */
  52.     
  53. } Infos, *PInfos, **HInfos;
  54.  
  55. /*=======
  56.  
  57.     Private data 
  58.     
  59. ========*/
  60.  
  61. typedef struct {
  62.  
  63.     short    resfile;        /* reference number of the PICS file */
  64.     short     count;            /* current image number              */
  65.     HInfos    info;            /* Handle to info resource           */
  66.     FSSpec    fspec;            /* Specs of the PICS file             */
  67.     
  68. } Globals, *PGlobals, **HGlobals;
  69.  
  70. /*========
  71.  
  72.     Our options
  73.     
  74. ========*/
  75.  
  76. typedef struct {
  77.  
  78.     short    speed;            /* Frames/seconds                             */
  79.     Boolean delete;            /* Delete file if the user aborts the job    */
  80.     
  81. } Opts, *POpts, **HOpts;
  82.  
  83. /*========
  84.  
  85.     Data for animation
  86.     
  87. ========*/
  88.  
  89. typedef struct {
  90.  
  91.     short        frame;            /* Current frame                             */
  92.     long           last;            /* last time we draw a frame                */
  93.     Boolean       ready;            /* ready after first update                  */
  94.     Boolean        color;            /* plot 'cicn'                                */
  95.     Rect        box;            /* Where to draw the frames                    */
  96.     long        speed;            /* Speed in 60th of seconds                    */
  97.     
  98. } Anim, *PAnim, **HAnim;
  99.  
  100.  
  101. /*=======
  102.  
  103.     Usefull macro to access our globals
  104.     
  105. ========*/
  106.  
  107. #define G    (**((HGlobals)(arg->data)))
  108. #define A    (**((HAnim)(arg->data)))
  109. #define O    (**o)
  110. #define I    (**info)
  111.  
  112. /*======================================================================================
  113.  
  114.     This is the entry point of the code resource.
  115.     It simply dispatches the calls to the proper routine
  116.     
  117. ======================================================================================*/
  118.  
  119. pascal    OSErr main(int msg,P2PXPtr arg)
  120. {
  121.     int ret = noErr;
  122.     
  123.     switch (msg)
  124.     {
  125.         case getFlagsMsg:
  126.             ret = GetFlags(arg);
  127.             break;
  128.             
  129.         case initMsg:
  130.             ret = DoInit(arg);
  131.             break;
  132.             
  133.         case endMsg:
  134.             ret = DoEnd(arg);
  135.             break;
  136.  
  137.         case putPageMsg:
  138.             ret = DoPutPage(arg);
  139.             break;
  140.             
  141.         case optOpenMsg:
  142.             ret = DoOptOpen(arg);
  143.             break;
  144.             
  145.         case optEventMsg:
  146.             ret = DoOptEvent(arg);
  147.             break;
  148.             
  149.         case optItemMsg:
  150.             ret = DoOptItem(arg);
  151.             break;
  152.             
  153.         case optDoneMsg:
  154.             ret = DoOptDone(arg);
  155.             break;
  156.  
  157.  
  158.     }
  159.     
  160.     return ret;
  161. }
  162.  
  163. /*======================================================================================
  164.  
  165.     Get flags of the code resource.
  166.     
  167. - It can be called at ANY TIME. 
  168.     
  169. - Most of the fields of the parameters will not be valid.
  170.   However, unintialized fields will contain nulls.
  171.     
  172. - Note that you can later change the values of the flags
  173.   in any other calls.
  174.     
  175. ======================================================================================*/
  176.  
  177. OSErr GetFlags(P2PXPtr arg)
  178. {
  179.     arg->flags = 
  180.         CAN_PREVIEW         + /* Preview is OK                        */
  181.         ENVIRONMENT_OK         + /* We can run on all Macs             */
  182.         WANT_FILE_NAMES        + /* Wants the file names to save pages */
  183.         HAS_OWN_OPTIONS        ; /* We have some options               */
  184.     
  185.     return noErr;
  186. }
  187.  
  188. /*======================================================================================
  189.  
  190.     Called when the application calls PrOpenDoc().
  191.     We allocate the handles needed for our globals.
  192.     
  193. ======================================================================================*/
  194.  
  195. OSErr    DoInit(P2PXPtr arg)
  196. {
  197.     HInfos info;
  198.     HOpts  o;
  199.     
  200.     /* Allocate some space four our globals */
  201.     
  202.     if(!(arg->data = NewHandleClear(sizeof(Globals)))) 
  203.         return iMemFullErr;
  204.         
  205.         
  206.     /* Allocate some space for the INFO structure */
  207.         
  208.     if(!(info = (HInfos)NewHandleClear(sizeof(Infos))))
  209.         return iMemFullErr;
  210.         
  211.     /* Get our options */
  212.         
  213.     if(!(o = (HOpts)GetResource(OPTS,OPTS_ID)))
  214.         return ResError();
  215.  
  216.     
  217.     G.resfile    = -1;        /* The PICS file is not yet opened                 */
  218.     G.count        = 128;        /* PICT resources start from 128 in a PICS file */
  219.     G.info        = info;        /* Save the INFO structure                      */
  220.     
  221.     I.maxsize = 0;                /* No pictures yet                    */
  222.     I.creator = arg->creator;    /* Use the creator chosen by the user */
  223.     I.speed   = O.speed;        /* Use the speed chosen by the use    */
  224.     
  225.     return noErr; /* All OK... */
  226. }
  227.  
  228. /*======================================================================================
  229.  
  230.     End of print. Called from PrOpenDoc() if everything OK.
  231.     Can be called at any time if something went wrong, so 
  232.     check if the private data is valid.
  233.  
  234. ======================================================================================*/
  235.  
  236.  
  237. OSErr    DoEnd(P2PXPtr arg)
  238. {
  239.     int     save     = CurResFile();                 /* Save the current resource file */
  240.     OSErr    retCode = noErr;                        /* be optimistic                  */
  241.     HOpts   o = (HOpts)GetResource(OPTS,OPTS_ID);    /* Get our options record         */
  242.     Boolean ok = TRUE;                                /* If not, delete the file        */
  243.     
  244.     if(arg->data)                    /* Did we have memory ?    */
  245.     {
  246.     
  247.         HInfos info = G.info;        /* Recover the INFO structure */
  248.         
  249.         if(G.resfile != -1)            /* Did we open any files ? */
  250.         {
  251.             UseResFile(G.resfile);
  252.             
  253.             if((arg->error == noErr) && info)
  254.             {
  255.             
  256.                 /* Add the INFO resource to the PICS file, check for error */
  257.                 
  258.                 AddResource(info,'INFO',128,"\p"); retCode = retCode?retCode:ResError();
  259.                 WriteResource(info);               retCode = retCode?retCode:ResError();
  260.                 UpdateResFile(G.resfile);           retCode = retCode?retCode:ResError();
  261.                 
  262.             }
  263.             
  264.             if(retCode != noErr)
  265.                 ok = FALSE;
  266.             
  267.         }
  268.         CloseResFile(G.resfile);
  269.         
  270.         
  271.         /* Now let's do some clean up */
  272.         
  273.         if(info)
  274.             DisposHandle(info);
  275.             
  276.         /* If an error was reported, we need to delete the file */
  277.         
  278.         if(arg->error != iPrAbort && arg->error != noErr)
  279.             ok = FALSE;
  280.             
  281.         /* If this error is iPrAbort (user cancel) delete the file
  282.            according to the options */
  283.            
  284.         if(o && O.delete)
  285.             if(arg->error == iPrAbort)
  286.                 ok = FALSE;
  287.             
  288.         /* If something went wrong, don't leave incomplete files around */
  289.                         
  290.         if(!ok)
  291.             FSpDelete(&arg->fspec);
  292.             
  293.         DisposHandle(arg->data);
  294.  
  295.     }
  296.     
  297.     /* Restore current resource file */
  298.     UseResFile(save);
  299.     
  300.     return retCode;
  301. }
  302.  
  303. /*======================================================================================
  304.  
  305.     Process a page. Called when the application calls PrClosePage().
  306.     Create the PICS file if it is the first time in.
  307.     Add the picture as a PICT resource.
  308.     
  309. ======================================================================================*/
  310.  
  311. OSErr DoPutPage(P2PXPtr arg)
  312. {
  313.     int save = CurResFile();
  314.     OSErr retCode = noErr;
  315.     HInfos info;
  316.  
  317.     /* No luck... */
  318.     
  319.     if(!(arg->data)) 
  320.         return -1;
  321.         
  322.     if(!(arg->pict)) 
  323.         return -1;
  324.     
  325.     info = G.info;
  326.         
  327.     /* First time in */
  328.     
  329.     if(G.resfile == -1)
  330.     {
  331.             
  332.         /* Delete previous file if any */
  333.  
  334.         if(retCode = FSpDelete(&arg->fspec))
  335.             if(retCode != fnfErr) 
  336.                 return retCode;
  337.  
  338.         /* Create the file, giving it the right Creator and File type.*/
  339.         
  340.         FSpCreateResFile(&arg->fspec, arg->creator, 'PICS',arg->script);
  341.         if(retCode = ResError())
  342.             return retCode;
  343.  
  344.         /* Save the file spec if we need to delete it later */
  345.         
  346.         G.fspec = arg->fspec;
  347.         
  348.         /* Open the resoure file */
  349.         
  350.         G.resfile = FSpOpenResFile(&arg->fspec,fsRdWrPerm);
  351.         if(G.resfile == -1) 
  352.             return ResError();
  353.         
  354.         /* We don't want any more file names */
  355.         
  356.         arg->flags &= ~WANT_FILE_NAMES;
  357.         
  358.         /* Fill the rest of the INFO structure */
  359.         
  360.         /* Are the PICTs in color ? */
  361.         
  362.         I.color = arg->color;
  363.         
  364.         /* If yes, get the depth of the printing port */
  365.         if(arg->color)
  366.         {
  367.             PixMapHandle pix = ((CGrafPtr)(arg->port))->portPixMap;
  368.             I.depth = (**pix).pixelSize;
  369.         }
  370.         else
  371.             I.depth = 1;
  372.     }
  373.         
  374.     
  375.     /* Now save the current page as a PICT resource */
  376.     
  377.     UseResFile(G.resfile);
  378.         
  379.     AddResource(arg->pict,'PICT',(G.count)++,"\p");    retCode = retCode?retCode:ResError();
  380.     SetResAttrs(arg->pict,resPurgeable);            retCode = retCode?retCode:ResError();
  381.     ChangedResource(arg->pict);                        retCode = retCode?retCode:ResError();
  382.     WriteResource(arg->pict);                        retCode = retCode?retCode:ResError();
  383.     UpdateResFile(G.resfile);                        retCode = retCode?retCode:ResError();
  384.     
  385.     /* Detache it so Print2Pict can kill it */
  386.     
  387.     DetachResource(arg->pict);
  388.         
  389.     /* Update maxsize in INFO structure */
  390.     
  391.     if(GetHandleSize(arg->pict)>I.maxsize)
  392.         I.maxsize = GetHandleSize(arg->pict);
  393.         
  394.     /* Restore current resource file */
  395.     
  396.     UseResFile(save);
  397.         
  398.     return retCode;
  399.  
  400. }
  401.  
  402. /*======================================================================================
  403.     
  404.     Initialize the options dialog. Allocate some memory for the animation,
  405.     initialize the dialog items.
  406.  
  407. ======================================================================================*/
  408.  
  409. OSErr    DoOptOpen(P2PXPtr arg)
  410. {
  411.     HOpts   o = (HOpts)GetResource(OPTS,OPTS_ID);    /* Get our options record */
  412.     HAnim     a;
  413.     
  414.     /* Something went wrong */
  415.     
  416.     if(!o)
  417.         return ResError();
  418.     
  419.     /* Set the frames/seconds text field */
  420.     
  421.     if(O.speed <1 )
  422.         O.speed = 1;
  423.     
  424.     
  425.     /* Initalize the dialog items, Remember to skip the Print2Pict items */
  426.     
  427.     Long2Dialog(arg->dlog,arg->skip + SPEED,(long)O.speed);
  428.     SetCheck(arg->dlog,arg->skip + DELETE,O.delete);
  429.     
  430.     /* Allocate some private storage for the animation */
  431.     
  432.     a = (HAnim)NewHandleClear(sizeof(Anim));
  433.     
  434.     /* No big deal if not enough memory */
  435.     
  436.     if(a)
  437.     {
  438.         /* Store the handle in the parameter block */
  439.         
  440.         arg->data = (Handle)a;
  441.         
  442.         /* Save the rectangle for the animation */
  443.         
  444.         A.box   = GetItemR(arg->dlog,arg->skip + MOVIE);
  445.         
  446.         A.frame = FIRST_FRAME;
  447.         A.speed = 60 / O.speed; /* Time between frams in 60th of seconds */
  448.         A.color = HasColor();    /* Color QuickDraw is there...           */
  449.     }
  450.  
  451.     return noErr;
  452.     
  453.     
  454. }
  455.  
  456. /*======================================================================================
  457.  
  458.     Called from the ModalDialog filter procedure. We handle use the null events
  459.     to run the animation.
  460.  
  461. ======================================================================================*/
  462.  
  463. OSErr    DoOptEvent(P2PXPtr arg)
  464. {
  465.     Rect r;
  466.     
  467.     if(arg->data)
  468.     {
  469.         switch(arg->event->what)
  470.         {
  471.             
  472.             case updateEvt:
  473.             
  474.                 if(arg->event->message == (long)arg->dlog)
  475.                 {
  476.                     /* wait first update before starting the animation */
  477.                     
  478.                     A.ready = TRUE;
  479.                     
  480.                     /* Draw a frame around the rectangle */
  481.                     
  482.                     r = A.box;
  483.                     InsetRect(&r,-1,-1);
  484.                     FrameRect(&r);
  485.                 }
  486.                 
  487.                 break;
  488.                 
  489.             case nullEvent:
  490.             
  491.                 if(A.ready)
  492.                 {
  493.                     long now = TickCount();
  494.                     Rect      r;
  495.                     CIconHandle    h;
  496.                     
  497.                     /* If the time is elapsed */
  498.                     
  499.                     if( now-A.last >= A.speed)
  500.                     {
  501.                         A.last = now;
  502.                         r= A.box;
  503.                         
  504.                         /* Plot cicn if ColorQD is available, otherwise plot ICON */
  505.                         
  506.                         if(A.color)
  507.                         {
  508.                             h = GetCIcon(A.frame);
  509.                             PlotCIcon(&r,h);
  510.                             DisposCIcon(h);
  511.                         }
  512.                         else
  513.                             PlotIcon(&r,GetIcon(A.frame));
  514.  
  515.                         
  516.                         /* Move to next frame */
  517.                         
  518.                         A.frame++;
  519.                         
  520.                         if(A.frame>LAST_FRAME)
  521.                             A.frame = FIRST_FRAME;
  522.                     }
  523.                 }
  524.                 break;
  525.         }
  526.     }
  527.     
  528.     return noErr;
  529. }
  530.  
  531. /*======================================================================================
  532.  
  533.     Called with the item returned by ModalDialog.
  534.  
  535. ======================================================================================*/
  536.  
  537.  
  538. OSErr    DoOptItem(P2PXPtr arg)
  539. {
  540.     long    speed;
  541.  
  542.     switch(arg->item - arg->skip)
  543.     {
  544.         /* Click in the "delete" checkbox */
  545.         
  546.         case DELETE:
  547.             ClickCheck(arg->dlog,arg->item);
  548.             break;
  549.             
  550.         /* The "speed" text field as been modified */
  551.         
  552.         case SPEED:
  553.         
  554.             speed = Dialog2Long(arg->dlog,arg->item);
  555.             
  556.             if(speed<1)
  557.                 speed = 1;
  558.                 
  559.             /* Change the speed of the animation with the new value */
  560.             
  561.             if(arg->data)
  562.                 A.speed = 60/speed;
  563.                 
  564.             break;
  565.     }
  566.     
  567.     return noErr;
  568. }
  569.  
  570. /*======================================================================================
  571.  
  572.     End of option dialog. Release use memory and save the changes.
  573.  
  574. ======================================================================================*/
  575.  
  576. OSErr    DoOptDone(P2PXPtr arg)
  577. {
  578.     HOpts   o = (HOpts)GetResource(OPTS,OPTS_ID);    /* Get our options record */
  579.     long    newspeed;
  580.     Boolean delete;
  581.     HAnim    a;
  582.     OSErr    retCode = noErr;
  583.     
  584.     /* Something went wrong */
  585.  
  586.     if(!o)
  587.     {
  588.         if(arg->data)
  589.             DisposHandle(arg->data);
  590.         return ResError();
  591.     }
  592.         
  593.     /* Get the new values */
  594.     
  595.     newspeed = Dialog2Long(arg->dlog,arg->skip + SPEED);
  596.     delete   = GetCheck(arg->dlog,arg->skip + DELETE);
  597.     
  598.     /* If the user changed the value, update the record */
  599.     
  600.     if(O.speed != newspeed || O.delete != delete)
  601.     {
  602.         if(newspeed <1 )
  603.             newspeed = 1;
  604.  
  605.         O.speed = newspeed;
  606.         O.delete = delete;
  607.         ChangedResource(o);
  608.         WriteResource(o);
  609.         UpdateResFile(HomeResFile(o));
  610.         retCode =  ResError();
  611.     }
  612.     
  613.     /* Realease used memory */
  614.     if(arg->data)
  615.     {
  616.         /* Because we draw outside of an item, we must clear it ourselves */
  617.         
  618.         Rect r = A.box;
  619.         InsetRect(&r,-1,-1);
  620.         EraseRect(&r);
  621.  
  622.         DisposHandle(arg->data);
  623.     }
  624.     
  625.     return retCode;
  626. }
  627.  
  628.  
  629.  
  630.